home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PsL Monthly 1993 December
/
PSL Monthly Shareware CD-ROM (December 1993).iso
/
prgmming
/
dos
/
basic
/
lines.bas
< prev
next >
Wrap
BASIC Source File
|
1993-09-21
|
1KB
|
60 lines
DECLARE SUB HLine (Row%, Col%, Length%, Dbl%)
CLS
PRINT "║ │ │ ║ ║ ║"
PRINT " │ ║ "
PRINT "║ │ │ ║ ║ ║"
PRINT
PRINT
CALL HLine(2, 1, 38, 2)
SUB HLine (Row%, Col%, Length%, Dbl%)
SaveRow% = CSRLIN
SaveCol% = POS(0)
Single$ = "─┴┬┼╨╥───╫═╧╤╪╩╦═══╬"
T1% = SCREEN(Row%, Col%)
T2% = SCREEN(Row% - 1, Col%)
T3% = SCREEN(Row% + 1, Col%)
IF T2% = 179 AND T3% = 179 THEN T1% = 179
IF T2% = 186 AND T3% = 186 THEN T1% = 186
IF T2% = 186 AND Dbl% < 2 THEN
LOCATE Row%, Col%
PRINT "╟";
Col% = Col% + 1
Length% = Length% - 1
ELSEIF T2% = 186 AND Dbl% = 2 THEN
LOCATE Row%, Col%
PRINT "╠";
Col% = Col% + 1
Length% = Length% - 1
END IF
IF T1% = 179 AND Dbl% < 2 THEN
LOCATE Row%, Col%
PRINT "├";
Col% = Col% + 1
Length% = Length% - 1
ELSEIF T1% = 179 AND Dbl% = 2 THEN
LOCATE Row%, Col%
PRINT "╞";
Col% = Col% + 1
Length% = Length% - 1
END IF
FOR I% = Col% TO Col% + Length% - 1
IF Dbl% = 2 THEN C% = 11 ELSE C% = 1
T1% = SCREEN(Row% - 1, I%)
T2% = SCREEN(Row% + 1, I%)
IF T1% = 179 THEN C% = C% + 1
IF T2% = 179 THEN C% = C% + 2
IF T1% = 186 THEN C% = C% + 4
IF T2% = 186 THEN C% = C% + 5
C$ = MID$(Single$, C%, 1)
LOCATE Row%, I%
PRINT C$;
FOR aa = 1 TO 1000: NEXT
NEXT I%
LOCATE SaveRow%, SaveCol%
END SUB